perm filename TTY[CMS,LCS] blob
sn#407361 filedate 1979-01-01 generic text, type T, neo UTF8
1) HHT4.FAI[CMS,LCS] and 2) HHT5.FAI[CMS,LCS] 1-01-79 18:24 pages 1,1
**** File 1) HHT4.FAI[CMS,LCS], Page 1 line 1
1) 00100 ; LOAD THIS FILE AND SAVE AS "HHT.DMP"
**** File 2) HHT5.FAI[CMS,LCS], Page 1 line 1
2) COMMENT ⊗ VALID 00016 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00003 00002 LOAD THIS FILE AND SAVE AS "HHT.DMP"
2) C00005 00003 Reset
2) C00007 00004 REFRESH LOOP
2) C00009 00005 WAIT LOOP AND SETUP
2) C00012 00006 UPDATE SCREEN
2) C00014 00007 KB INTERRUPT ROUTINE
2) C00017 00008 RS232 INTERRUPT ROUTINE
2) C00019 00009 FOLLOW CURSOR
2) C00021 00010 RS232 CONTROL
2) C00023 00011 SCROLL UP
2) C00024 00012 CK IF IN WINDOW
2) C00026 00013 HOME CURSOR.
2) C00028 00014 ASCII TABLE BITS 7 6 5 4 3 2 1 0
2) C00031 00015 CHR GEN = GRAPHICS
2) C00035 00016 CGEN2: 000 ↔ 017 ↔ 177 ↔ 170 ↔ 010 ↔ 010 ↔ 010 ↔ 000
2) C00039 ENDMK
2) C⊗;
2) ; LOAD THIS FILE AND SAVE AS "HHT.DMP"
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 4 line 3
1) 00300 CPL ← = 28 ;NUMBER OF CHRS PER LINE
1) 00400 SPEED ← = 36 ;SPEED OF SHIFT RIGHT IN ms * 2
**** File 2) HHT5.FAI[CMS,LCS], Page 5 line 3
2) SPEED ← = 36 ;SPEED OF SHIFT RIGHT IN ms * 2
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 4 line 68
1) 06100 CLI ;ENABLE INTERUPTS
1) 06200 BEQ WAIT2 ;FALL THROUGH TO UPDATE
**** File 2) HHT5.FAI[CMS,LCS], Page 5 line 67
2) CLI ;ENABLE INTERRUPTS
2) BEQ WAIT2 ;FALL THROUGH TO UPDATE
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 6 line 11
1) 00930 CPXI 307 ;Shift key index.
1) 00940 BNE SHFTCK
**** File 2) HHT5.FAI[CMS,LCS], Page 7 line 11
1) HHT4.FAI[CMS,LCS] and 2) HHT5.FAI[CMS,LCS] 1-01-79 18:24 pages 6,7
2) CPXI 300 ;Shift key index.
2) BNE SHFTCK
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 7 line 11
1) 01100 CMPI 30 ;CONTROL CODES
1) 01200 BCC SCNTRL
1) 01300 CMPI 177 ;<bspace>
1) 01400 BEQ BS
**** File 2) HHT5.FAI[CMS,LCS], Page 8 line 10
2) BEQ RSRTRN ;Check for nulls.
2) CMPI 30 ;CONTROL CODES
2) BCC SCNTRL
2) CMPI 10 ;<bspace>
2) BEQ BS
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 9 line 1
1) 00100 ; RS232 CONTROL
**** File 2) HHT5.FAI[CMS,LCS], Page 9 line 30
2) ;Oldest text.
2) OLDEST: LDAZ CUR
2) ANDI 300
2) CLC
2) ADCI 100 ;Next line.
2) STAZ WINDOW
2) LDAZ CUR+1
2) ADCI 0
2) CMPI ED
2) BNE NOPASS
2) LDAI SD
2) NOPASS: STAZ WINDOW+1
2) BNE SETFLG ;JUMP.
2) ; RS232 CONTROL
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 9 line 20
1) 02000 CMPI 27 ;HOME
1) 02100 BEQ RHOME
1) 02200 JMP PCHR ;PRINT IT ANYWAY
1) 02300 RHOME: JSR HOME
1) 02400 JRTRN: JMP RSRTRN ;SET UPDATE FLAG
1) 02500 ; <lf>
**** File 2) HHT5.FAI[CMS,LCS], Page 10 line 20
2) CMPI 27 ;Oldest.
1) HHT4.FAI[CMS,LCS] and 2) HHT5.FAI[CMS,LCS] 1-01-79 18:24 pages 9,10
2) BEQ OLDEST
2) JMP PCHR ;PRINT IT ANYWAY
2) ; <lf>
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 9 line 46
1) 04600 JMP RSRTRN
1) 00100 ; SCROLL UP
**** File 2) HHT5.FAI[CMS,LCS], Page 10 line 44
2) JRTRN: JMP RSRTRN ;SET UPDATE FLAG
2) ; SCROLL UP
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 12 line 1
1) 00100 ; HOME CURSOR?
1) 00200 HOME: LDAI 0 ;CURSOR ← WINDOW ← TOP
**** File 2) HHT5.FAI[CMS,LCS], Page 13 line 1
2) ; HOME CURSOR.
2) HOME: LDAI 0 ;CURSOR ← WINDOW ← TOP
***************
**** File 1) HHT4.FAI[CMS,LCS], Page 13 line 23
1) 02300 26 ↔ ":" ↔ "(" ↔ "*" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ;SHIFT
1) 02400 27 ↔ ";" ↔ ")" ↔ "%" ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) 02500 22 ↔ "'" ↔ "[" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) 02600 "+" ↔ 42 ↔ "]" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) 02700 14 ↔ "!" ↔ "/" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) 02800 13 ↔ "?" ↔ "\" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) 02900 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) 03000 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) 03200 "0" ↔ "6" ↔ "A" ↔ "G" ↔ "M" ↔ "S" ↔ "Y" ↔ 7
1) 03300 "1" ↔ "7" ↔ "B" ↔ "H" ↔ "N" ↔ "T" ↔ "Z" ↔ "#"
1) 03400 "2" ↔ "8" ↔ "C" ↔ "I" ↔ "O" ↔ "U" ↔ "." ↔ " "
1) 03500 "3" ↔ "9" ↔ "D" ↔ "J" ↔ "P" ↔ "V" ↔ "," ↔ 177
1) 03600 "4" ↔ "-" ↔ "E" ↔ "K" ↔ "Q" ↔ "W" ↔ 21 ↔ 12
1) 03700 "5" ↔ "=" ↔ "F" ↔ "L" ↔ "R" ↔ "X" ↔ 20 ↔ 15
1) 03800 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
**** File 2) HHT5.FAI[CMS,LCS], Page 14 line 23
2) 7 ↔ "?" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ "'" ↔ 13 ;SHIFT
2) "+" ↔ "(" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 42 ↔ 26
2) "-" ↔ ")" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ "@" ↔ 27
2) "*" ↔ "[" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ "$" ↔ " "
2) "/" ↔ "]" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ ":" ↔ 22
2) "=" ↔ "%" ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ ";" ↔ 12
2) 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
1) HHT4.FAI[CMS,LCS] and 2) HHT5.FAI[CMS,LCS] 1-01-79 18:24 pages 13,14
2) 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
2) 7 ↔ "#" ↔ "A" ↔ "G" ↔ "M" ↔ "S" ↔ "Y" ↔ 14
2) "1" ↔ "6" ↔ "B" ↔ "H" ↔ "N" ↔ "T" ↔ "Z" ↔ 20
2) "2" ↔ "7" ↔ "C" ↔ "I" ↔ "O" ↔ "U" ↔ "-" ↔ 21
2) "3" ↔ "8" ↔ "D" ↔ "J" ↔ "P" ↔ "V" ↔ "!" ↔ " "
2) "4" ↔ "9" ↔ "E" ↔ "K" ↔ "Q" ↔ "W" ↔ "." ↔ 10
2) "5" ↔ "0" ↔ "F" ↔ "L" ↔ "R" ↔ "X" ↔ "," ↔ 15
2) 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7 ↔ 7
***************